From da43b90aeade3e4a3349396286790be1f5b76271 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 7 Oct 2012 11:15:16 -0400 Subject: [PATCH] * lisp/emacs-lisp/autoload.el (make-autoload): Add `cl-defmacro' to the forms that define macros. --- lisp/ChangeLog | 9 +++++++-- lisp/comint.el | 7 ++----- lisp/emacs-lisp/autoload.el | 2 +- 3 files changed, 10 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09d9367f7ae..56295dde2c8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,12 @@ +2012-10-07 Stefan Monnier + + * emacs-lisp/autoload.el (make-autoload): Add `cl-defmacro' to the + forms that define macros (bug#12593). + 2012-10-07 Kenichi Handa - * international/mule-conf.el (compound-text-with-extensions): Add - :mime-charset property as x-ctext. + * international/mule-conf.el (compound-text-with-extensions): + Add :mime-charset property as x-ctext. 2012-10-07 Stefan Merten diff --git a/lisp/comint.el b/lisp/comint.el index fea9cecfa03..080b12e0cdf 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2783,11 +2783,8 @@ the load or compile." (if (and buff (buffer-modified-p buff) (y-or-n-p (format "Save buffer %s first? " (buffer-name buff)))) - ;; save BUFF. - (let ((old-buffer (current-buffer))) - (set-buffer buff) - (save-buffer) - (set-buffer old-buffer))))) + (with-current-buffer buff + (save-buffer))))) (defun comint-extract-string () "Return string around point, or nil." diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index e6e2d1e60e0..382e25f3121 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -153,7 +153,7 @@ expression, in which case we want to handle forms differently." easy-mmode-define-minor-mode define-minor-mode cl-defun defun* cl-defmacro defmacro* define-overloadable-function)) - (let* ((macrop (memq car '(defmacro defmacro*))) + (let* ((macrop (memq car '(defmacro cl-defmacro defmacro*))) (name (nth 1 form)) (args (pcase car ((or `defun `defmacro -- 2.30.2